Top 10k strings from Boekhouding (1983)(W.M.J. Schoonenberg)(nl).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /
Back to the directory listing
8 #x;'"Totaal";
4 ;n$;" (";r$;" '";jr-1900
4 ("Naam post ";k;"? ");x$:
3 w(k)=w(k)-v(j):
3 w(k)=w(k)+w(j):
3 w$(k)=w$(j)
3 w$(k)=v$(j)
3 v(k)=v(k)+v(j):
3 v(j)=-w(k):
3 v$(k)=v$(j)
3 v$(j)=w$(k):
3 #x;"Reserves";
2 t(w(k));w(k)
2 t(v(k));v(k)
2 t(ct+r);ct+r
2 BOEKHOUDING
2 );" (";w$(k,13
2 );" (";v$(k,13
2 ("Tegenrek. ~";x$;"~? ");
2 #x;'"PASSIVA":
2 #x;'"DEBET":
2 #x;'"CREDIT":
2 #x;'"AKTIVA":
2 #x;"A.R.R.";
2 "Invoer? (j/n)"
2 "EVEN GEDULD A.U.B."
2 "Berekening? (j/n)"
2 W.M.J. SCHOONENBERG":
1 x$="Spaarb."
1 x$="Kasb."
1 x$="Girob."
1 x$="Balans"
1 x$="A.R.R."
1 w(k)=f(m,k):
1 w(k)=d(m,k):
1 w(k)=b(m,k):
1 w(j4)=q(m,k):
1 w(j4)=e(m,k):
1 w(j4)=c(m,k):
1 w(j4)=a(m,k):
1 w(j2)=f(m,k):
1 w(j2)=d(m,k):
1 w(j2)=b(m,k):
1 w$(k)=f$(m,k)
1 w$(k)=d$(m,k)
1 w$(k)=b$(m,k)
1 w$(j4)=q$(m,k)
1 w$(j4)=e$(m,k,13
1 w$(j4)=c$(m,k,13
1 w$(j4)=a$(m,k,13
1 w$(j2)=f$(m,k,13
1 w$(j2)=d$(m,k,13
1 w$(j2)=b$(m,k,13
1 v(k)=e(m,k):
1 v(k)=c(m,k):
1 v(k)=a(m,k):
1 v(j3)=p(m,k):
1 v(j3)=f(m,k):
1 v(j3)=d(m,k):
1 v(j3)=b(m,k):
1 v(j1)=e(m,k):
1 v(j1)=c(m,k):
1 v(j1)=a(m,k):
1 v$(k)=e$(m,k)
1 v$(k)=c$(m,k)
1 v$(k)=a$(m,k)
1 v$(j3)=p$(m,k)
1 v$(j3)=f$(m,k,13
1 v$(j3)=d$(m,k,13
1 v$(j3)=b$(m,k,13
1 v$(j1)=e$(m,k,13
1 v$(j1)=c$(m,k,13
1 v$(j1)=a$(m,k,13
1 t(s(mb,k));s(mb,k)
1 t(s(m,k));s(m,k)
1 t(s(m,b)+dt);s(m,b)+dt
1 t(s(m,b));s(m,b)
1 t(r-r(m));r-r(m)
1 t(q(mb,k));q(mb,k)
1 t(q(m,k));q(m,k)
1 t(p(mb,k));p(mb,k)
1 t(p(m,k));p(m,k)
1 t(h(m,k));h(m,k)
1 t(g(m,k));g(m,k)
1 t(f(m,k));f(m,k);:
1 t(e(m,k));e(m,k);:
1 t(d(m,k));d(m,k);:
1 t(ct+s(m+1
1 t(ct+r(m));ct+r(m)
1 t(c(m,k));c(m,k);:
1 t(b(m,k));b(m,k);:
1 t(a(m,k));a(m,k);:
1 s$="BH6 "+
1 r$="SEPT."
1 r$="FEBR."
1 q$(m,k)=x$
1 p$(m,k)=x$
1 oorr.grootheid? (j/n)"
1 n$="SPAARREK."
1 n$="EINDBALANS"
1 n$="BEGINBALANS":
1 n$="A.R.R."
1 m=m-(x$="o")+(x$="p")
1 jr=jr+1900
1 j>n(ka,ja)
1 h(m,j)=w(k):
1 h$(m,j)=w$(k)
1 g(m,j)=v(k):
1 g$(m,j)=v$(k)
1 f(m,k)=w(k):
1 f$(m,k)=w$(k)
1 e(m,k)=v(k):
1 e$(m,k)=v$(k)
1 dt=dt+v(k):
1 dt=dt+s(mb,k)
1 dt=dt+s(m,k)
1 dt=dt+p(mb,k)
1 dt=dt+p(m,k)
1 dt=dt+g(m,k)
1 d(m,k)=w(k):
1 d$(m,k)=w$(k)
1 ct=ct+w(k):
1 ct=ct+q(mb,k)
1 ct=ct+q(m,k)
1 ct=ct+h(m,k)
1 c(m,k)=v(k):
1 c$(m,k)=v$(k)
1 b(m,k)=w(k):
1 b$(m,k)=w$(k)
1 a(s(m,b)+dt-ct)
1 a(m,k)=v(k):
1 a$(m,k)=v$(k)
1 WIJZIGINGEN DAGBOEKEN
1 BOEKH.
1 BEGINBALANS
1 @BBBJ@JB@|N
1 @BBBBb@bB@BB
1 <@~BBR|R||B@
1 <<B<<B~B|~|<
1 <<B<<B~B|~B<
1 ;"WIJZIGINGEN ";r$;" ";jr
1 ;"Voorr.grootheid? (j/n)"
1 ;"Voorr.gr.? (j/n)"
1 ;"Tegenrek.";
1 ;"Spoel band terug voor ~VERIFY~ ":
1 ;"Mocht het programma onderbroken worden, typ dan ~GOTO MENU~ voorterugkeer naar Menu."
1 ;"Copy? (j/n)"
1 ;"BOEKMAAND ";r$;" ";jr
1 ,b));s(m+1
1 ,b));ct+s(m+1
1 * versie 6
1 * BOEKHOUDING
1 * AMSTERDAM, 1983 *
1 );" ";f$(m,k,13
1 );" ";e$(m,k,13
1 );" ";d$(m,k,13
1 );" ";c$(m,k,13
1 );" ";b$(m,k,13
1 );" ";a$(m,k,13
1 ("Tegenrekening ";j;"? ");l$:
1 ("Rekening ";j;"? ");k$:
1 ("Nr. te wijzigen post?";'"(voer 0 in voor menu) ");j
1 ("Bedrag ~";x$;"~? ");w(k)
1 ("Bedrag ~";x$;"~? ");v(k)
1 ("Bedrag ~";x$;"~? ");q(m,k)
1 ("Bedrag ~";x$;"~? ");p(m,k)
1 ("Bedrag post ";j;"? ");f(m,j)
1 ("Bedrag post ";j;"? ");e(m,j)
1 ("Bedrag post ";j;"? ");d(m,j)
1 ("Bedrag post ";j;"? ");c(m,j)
1 ("Bedrag post ";j;"? ");b(m,j)
1 ("Bedrag post ";j;"? ");a(m,j)
1 ("Aantal rek., ";x$;",deb.? ");n(k,1
1 ("Aantal rek., ";x$;",cred.? ");n(k,2
1 ''"Rekening nr. ";j;" bestaat niet.":
1 '"Op welk dagboek staat de te
1 '"Menu:";''"1. Kasboek,";'"2. Giroboek,";'"3. Spaarboek,";'"4. Alg. Result. Rek.,";'"5. Beginbalans,";'"6. Eindbalans."
1 '"EVEN GEDULD A.U.B."
1 '"A. Wijziging dagboekposten,";'"O. Vorige maand,";'"P. Volgende maand,";'"R. Wissen geheugen/Start progr.,";'"S. Data-opslag op band."
1 '"1. Kas,";'"2. Giro,";'"3. Spaar."
1 #x;q$(mb,k);
1 #x;q$(m,k);
1 #x;p$(mb,k);
1 #x;p$(m,k);
1 #x;h$(m,k);
1 #x;g$(m,k);
1 #x;"Eindsaldo";
1 #x;"Beginsaldo";
1 "Kas ","Giro ","Spaar "
1 "Eerste maand? (1-12) ";m1:
1 "Boekjaar? ";jr:
1 "Beginsaldo? ";s(m,b)
1 wijzigen post?"
1 WMJ SCHOONENBERG *